home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d7 / atmod.arc / AT < prev    next >
Encoding:
Text File  |  1991-07-29  |  1016 b   |  43 lines
  1. ;AT  Modem communication program written by Doug Cox, January 1990 (using A86)
  2. PREGETSTATUS:
  3.   CALL CLSCRN
  4. GETSTATUS:
  5.   MOV DX,03FD        ;LINE STATUS REGISTER
  6.   IN AL,DX
  7.   AND AL,1
  8.   JZ >L1        ;IF NOTHING FROM MODEM
  9.   MOV DX,03F8           ;RECEIVE/TRANSMIT DATA REGISTER
  10.   IN AL,DX              ;RECEIVE IT
  11.   MOV AH,0E             ;FUNCTION TO WRITE CHAR ON SCREEN
  12.   INT 010
  13.   JMP SHORT GETSTATUS
  14. L1:
  15.   MOV AH,1              ;FUNCTION TO GET KEYBOARD STATUS
  16.   INT 016
  17.   JZ GETSTATUS        ;IF NO KEYBOARD INPUT
  18.   MOV AH,0        ;FUNCTION TO GET KEYBOARD CHAR
  19.   INT 016
  20.   CMP AX,02E00        ;ALT-C
  21.   JE PREGETSTATUS
  22.   CMP AX,02D00        ;ALT-X
  23.   JE EXIT
  24.   CMP AL,01B            ;ESC KEY
  25.   JE EXIT
  26.   MOV DX,03F8        ;RECEIVE/TRANSMIT DATA REGISTER
  27.   OUT DX,AL        ;SEND IT
  28.   JMP SHORT GETSTATUS
  29.  
  30. EXIT:
  31. CLSCRN:
  32.   MOV AX,0700        ;FUNCTION TO CLEAR SCREEN BY SCROLLING IT
  33.   MOV BH,7        ;ATTRIBUTE
  34.   SUB CX,CX
  35.   MOV DX,0184F
  36.   INT 010
  37.   MOV AH,2        ;FUNCTION TO MOVE CURSOR
  38.   SUB BX,BX
  39.   SUB DX,DX
  40.   INT 010
  41.   RET
  42.  
  43.